home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Educational / A+(PART1).ARC / BOOT A+ C5.0.1 (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  456b  |  7 lines
  1. 1 REM BOOT A+ C5.0.1         3/5/87
  2. 2 :S=53280:POKES,0:POKES+1,0:PRINTCHR$(142):Q$=CHR$(34):PRINT"[147]";TAB(12)"[155]WAIT FOR A-PLUS[144]":GOSUB3:GOSUB6:POKE2,64:POKE787,64:POKE646,0:PRINT"[144]";:PRINT"LOAD"Q$+F$+Q$",8[145][145][145]":POKE631,13:POKE632,82:POKE633,85:POKE634,78:POKE635,13:POKE198,5:END:
  3. 3 OPEN15,8,15:OPEN8,8,8,"#":PRINT#15,"U1:"8;0;18;0:PRINT#15,"B-P:"8;144:FORI=1TO16:GET#8,A$:IFA$=" "THENA$=CHR$(160)
  4. 4 DN$=DN$+A$:A$="":NEXT:CLOSE8:CLOSE15:F$="MB*":IFLEFT$(DN$,7)="STUDENT"THENF$="A+ OBJ*
  5. 5 [142]
  6. 6 [159]15,8,15:[132]15,E,E$,J,J:[152]15,"I0":[160]15:[142]
  7.